##rem $Id: E32e.sd,v 1.2 1999/11/28 03:36:41 carlos Exp $
##stringtype E
/****************************************************************
   This file was created automatically by `%fv'
   from "%f0".
   Do NOT edit by hand!
****************************************************************/

OPT MODULE
OPT REG=5


->*****
->** External modules
->*****
MODULE 'locale' , 'libraries/locale'
MODULE 'utility/tagitem'


->*****
->** Object definitions
->*****
EXPORT OBJECT fc_type PRIVATE
  id:LONG
  str:PTR TO CHAR
ENDOBJECT

EXPORT OBJECT catalog_%b PUBLIC
  %i                    :PTR TO fc_type
ENDOBJECT


->*****
->** Global variables
->*****
DEF cat_%b:PTR TO catalog


->*****
->** Creation procedure for fc_type object
->*****
PROC create(id,str:PTR TO CHAR) OF fc_type

  self.id:=id
  self.str:=str

ENDPROC

->*****
->** Procedure which returns the correct string according to the catalog
->*****
PROC getstr() OF fc_type IS 
  IF cat_%b THEN GetCatalogStr(cat_%b,self.id,self.str) ELSE self.str

PROC newcreate(id,stri)
DEF fct:PTR TO fc_type
ENDPROC NEW fct.create(id,stri)


->*****
->** Creation procedure for catalog_%b object
->*****
PROC create() OF catalog_%b
  cat_%b:=NIL

  self.%i:=newcreate(%d,{str_%e})

ENDPROC

PROC getCatalog() OF catalog_%b IS cat_%b

->*****
->** Opening catalog procedure (exported)
->*****
PROC open(loc=NIL:PTR TO locale,language=NIL:PTR TO CHAR ) OF catalog_%b
DEF tag,
    tagarg

  self.close()
  IF localebase AND (cat_%b=NIL)
    IF language
      tag:=OC_LANGUAGE
      tagarg:=language
    ELSE
      tag:=TAG_IGNORE
    ENDIF

    cat_%b:=OpenCatalogA(loc,'%b.catalog',
                         [OC_BUILTINLANGUAGE, %l,
                          tag,                tagarg,
                          OC_VERSION,         %v,
                          TAG_DONE,0])

  ENDIF

ENDPROC


->*****
->** Closing catalog procedure
->*****
PROC close() OF catalog_%b

  IF cat_%b
    CloseCatalog(cat_%b)
    cat_%b:=NIL
  ENDIF

ENDPROC


str_%e: CHAR %s,0


/****************************************************************
   End of the automatically created part!
****************************************************************/
